home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / Apache / cgi-bin / finger.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-03-06  |  729 b   |  35 lines
  1. /* testing rexx command */
  2. address command
  3.  
  4. work = "pipe:cgi-finger-" || pragma( "ID" )
  5.  
  6. parse arg user
  7.  
  8. say "Content-type: text/html"
  9. say ""
  10.  
  11. Finger = "/bin/finger"
  12.  
  13. if exists( Finger )
  14. then do
  15.     if User =  ""
  16.     then do
  17.         say "<TITLE>Arexx Finger Gateway running on an amiga</TITLE>"
  18.         say ""
  19.         say "<ISINDEX>"
  20.         say "<p>The time is "||time('Civil')||" on "||date('Normal')||" here."
  21.         say '<p>This is a gateway to "finger". It is written in arexx, and running on an amiga.<br>'
  22.         say 'Type a user@host combination in your browser''s'
  23.         say "search dialog.<P>"
  24.     end
  25.     else do
  26.         say "<h1>Result of finger "||user||"</h1><hr>"
  27.         say "<pre>"
  28.         Finger user
  29.         say "</pre>"
  30.     end
  31. end
  32. else do
  33.     say "Cannot find finger on this system."
  34. end
  35.